Program Pzim ;
var
altura:array [1..5] of integer;
i,soma:integer;
media:real;
 Begin
 soma:=0  ;
  for i:=1 to 5 do
    begin	
       writeln('Altura ',i); 
       readln(altura[i]);
	  soma:= soma+altura[i]; 
    end;
  for i:=1 to 5 do writeln('A altura é: ',altura[i]);	
  	
  
  media:= soma /i;
  writeln(media); 
  
  	
  
  
  
  
  
  
  
  
 End.